home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / GRAPHICS.BAS < prev    next >
BASIC Source File  |  1996-07-04  |  5KB  |  113 lines
  1. '───────────────────────────────────────────────────────────────────────────
  2. '─────── Compiler Statements ───────────────────────────────────────────────
  3. '───────────────────────────────────────────────────────────────────────────
  4. $COMPILE  MEMORY           ' { EXE "?.EXE" | CHAIN "?.PBC" | UNIT "?.PBU" }
  5. $CPU       80386           ' { 8086 | 80286 | 80386}
  6. $COM           0           ' { 0 -> 32767 }
  7. $SOUND         1           ' { 1 -> 4096 }
  8. $STACK     32766           ' { 1536 -> 32766 }
  9. $STRING       32           ' { 1 | 2 | 4 | 8 | 16 | 32 }
  10. $OPTIMIZE SIZE             ' { SIZE | SPEED }
  11. $DIM      ARRAY            ' { ALL | ARRAY | NONE }
  12. $DYNAMIC                   ' { $STATIC | $DYNAMIC | $HUGE }
  13. $ERROR    BOUNDS     OFF   ' { ON | + | OFF | - }
  14. $ERROR    NUMERIC    OFF   ' { ON | + | OFF | - }
  15. $ERROR    OVERFLOW   OFF   ' { ON | + | OFF | - }
  16. $ERROR    PARAM      OFF   ' { ON | + | OFF | - }
  17. $ERROR    STACK      OFF   ' { ON | + | OFF | - }
  18. $EVENT               OFF   ' { ON | + | OFF | - }
  19. $DEBUG    MAP        OFF   ' { ON | + | OFF | - }
  20. $DEBUG    PBDEBUG    OFF   ' { ON | + | OFF | - }
  21. $DEBUG    PATH       OFF   ' { ON | + | OFF | - }
  22. $DEBUG    UNIT       OFF   ' { ON | + | OFF | - }
  23. $OPTION   CNTLBREAK  OFF   ' { ON | + | OFF | - }
  24. $OPTION   GOSUB      OFF   ' { ON | + | OFF | - }
  25. $LIB      COM        OFF   ' { ON | + | OFF | - }
  26. $LIB      LPT        OFF   ' { ON | + | OFF | - }
  27. $LIB      GRAPH      OFF   ' { ON | + | OFF | - }
  28. $LIB      CGA        OFF   ' { ON | + | OFF | - }
  29. $LIB      EGA        OFF   ' { ON | + | OFF | - }
  30. $LIB      VGA        OFF   ' { ON | + | OFF | - }
  31. $LIB      HERC       OFF   ' { ON | + | OFF | - }
  32. $LIB      FULLFLOAT  OFF   ' { ON | + | OFF | - }
  33. $LIB      IPRINT     OFF   ' { ON | + | OFF | - }
  34. $LIB      ALL        OFF   ' { ON | + | OFF | - }
  35. $FLOAT    EMULATE          ' { EMULATE | NPX | PROCEDURE }
  36. '───────────────────────────────────────────────────────────────────────────
  37. '─────── Include Statements ────────────────────────────────────────────────
  38. '───────────────────────────────────────────────────────────────────────────
  39. $INCLUDE "PUBLICS .INC"    ' all public statements
  40. $INCLUDE "DAS-NB01.INC"    ' nutz 'n boltz #1
  41. $INCLUDE "DAS-NB02.INC"    ' nutz 'n boltz #2
  42. $INCLUDE "DAS-NB03.INC"    ' math package, sound & tunes
  43. '──────────────────────────'
  44. $INCLUDE "DAS-NBV1.INC"    ' general stuff
  45. $INCLUDE "DAS-NBV2.INC"    ' box routines & screen clearing
  46. '───────────────────────────────────────────────────────────────────────────
  47. '─────── Set-up Functions ──────────────────────────────────────────────────
  48. '───────────────────────────────────────────────────────────────────────────
  49. PUBLIC pProgPath$         ' program's home path
  50. PUBLIC pCollate$          ' CountryCode's collate string for ARRAY SORT
  51.  
  52. IF pbvCPU < 3 THEN
  53.   CLS
  54.   PRINT "CAN'T RUN THIS PROGRAM ON LESS THAN A 386"
  55.   END
  56. END IF
  57.  
  58. pProgPath$ = fProgPath$
  59.  
  60. DIM tCC AS CountryCodeType
  61. LSET tCC = fGetCountry$( 0 )
  62. IF tCC.CountryCode > 0 THEN
  63.   SetDateFormat tCC.DateFormat, tCC.DateSep
  64.   SetTimeFormat tCC.TimeFormat, tCC.TimeSep
  65.   CHR2MID pbvUSINGchrs, 3, tCC.ThousandSep
  66.   CHR2MID pbvUSINGchrs, 4, tCC.DecimalSep
  67.   SetMoneyMask tCC.MoneySymbol, tCC.MoneyFormat, tCC.MoneyDecs
  68.   pCollate$ = fGetCollate$
  69. END IF
  70.  
  71. CLS
  72. SCREEN 12
  73. GraphicSETUP
  74.  
  75. SetColorFLAG   1                             ' these values are defaults so
  76. SetMaskAdjust  0                             ' you can/should erase any that
  77. SetForeground 15                             ' you do not use/change.
  78. SetBackground  0                             '
  79.                                              '
  80. fLoadDAScolor                                ' 3-D colors
  81.                                              '
  82. Buttons? = fMouseSETUP?( 2 )                 ' left & right buttons only
  83. EventSetup 10, 200                           ' we'll use events
  84.                                              '
  85. FUNCTION fGetKey% () LOCAL PUBLIC            ' This is what fGetKey%
  86.   LOCAL G%                                   ' looks like when using
  87.                                              ' fEventKey% the only
  88.   DO                                         ' difference is that you
  89.     IF INSTAT THEN                           '
  90.       FUNCTION = CVI( INKEY$ + CHR$(0) )     ' for kbrd and/or mouse
  91.       EXIT FUNCTION                          '
  92.     END IF                                   '
  93.   LOOP UNTIL fMouseGetKey% <> 0              ' change this to > 0
  94.                                              ' clicks only
  95. END FUNCTION                                 '
  96.  
  97. '───────────────────────────────────────────────────────────────────────────
  98. '─────── Program Code ──────────────────────────────────────────────────────
  99. '───────────────────────────────────────────────────────────────────────────
  100.  
  101.  
  102. '───────────────────────────────────────────────────────────────────────────
  103. '─────── End Program ───────────────────────────────────────────────────────
  104. '───────────────────────────────────────────────────────────────────────────
  105.  
  106. ByeBye:
  107.   SCREEN 0,,0,0         ' back to text mode
  108.   WIDTH  80,25          ' 80x25 screen
  109.   COLOR  7,0,0          ' normal DOS colors
  110.   LOCATE ,,1            ' cursor on
  111.   CLS                   '
  112.   END                   '
  113.